home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / SeekAndDestroy.zprx < prev    next >
Text File  |  1995-07-19  |  1KB  |  54 lines
  1. /*
  2.     $VER: SeekAndDestroy.zprx 1.1 (19.7.95) by Ralph Seichter
  3.     ARexx script for Zodiac's Point 3.10.
  4.  
  5.     This script examines the current message's id, jumps to the board
  6.     where the message is supposed to be held, and marks it for deletion
  7.     during the next reorganization process. I suggest you to bind this
  8.     script to an F-Key, e.g. by adding
  9.  
  10.         F14:SYS:Rexxc/RX ZP:Rexx/SeekAndDestroy.zprx %s
  11.  
  12.     to your "fkeys.zp" file.
  13. */
  14.  
  15. PARSE ARG zpPort
  16. ADDRESS VALUE zpPort
  17. OPTIONS RESULTS
  18.  
  19. whichlevel
  20. IF (RESULT ~= 'BOARD') THEN DO
  21.     requestnotify 'You must be inside a board!'
  22.     exit
  23. END
  24.  
  25. messageinfo id
  26. mid = RESULT
  27. messageinfo receiver
  28. rcv = RESULT
  29. IF (mid == '' OR rcv == '') THEN DO
  30.     requestnotify 'Missing ID or receiver!'
  31.     exit
  32. END
  33.  
  34. lf = '0A'X
  35.  
  36. boardmenu
  37. jumptoboard 1
  38. jumptoboard name rcv
  39. IF (~RC) THEN DO
  40.     requestnotify "Can't find board" || lf || rcv
  41.     exit
  42. END
  43.  
  44. enterboard
  45. jumptomessage 1
  46. jumptomessage id mid
  47. IF (~RC) THEN DO
  48.     requestnotify "Can't find message" || lf || mid
  49.     exit
  50. END
  51. delete one later
  52.  
  53. /* EOF */
  54.